home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 8 / macformat_08.iso / mac / Demos / 100 Years of Motoring Demo / Support Files / Tech / Shared.Dir / 00919.ls < prev    next >
Encoding:
Text File  |  1995-03-16  |  232 b   |  9 lines
  1. on animButton theClicks
  2.   puppetSound("Click")
  3.   set whichSprite to the clickOn
  4.   set whichCast to the castNum of sprite whichSprite
  5.   set the castNum of sprite whichSprite to whichCast + 1
  6.   updateStage()
  7.   theTempo(theClicks)
  8. end
  9.